﻿Public Class EmeklilikKimlikDuzeltme : Inherits Process

	Dim kimlik, hturu, kararno, adi, ykimlik, yhturu, ykararno As Input

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Start("Hesap/Karar/Kimlik Düzeltme", "Kimlik numarasını girin.")
				kimlik = AddField("@Kimlik", "nl", "", "Kimlik numarasını girmek zorundasınız.")
				StartBody()
				hturu = AddField("hturu", "readonly")
				kararno = AddField("kararno", "nl;readonly")
				adi = AddField("UzunAd[name=adi;label=Adı Soyadı]", "nl;colspan=9;readonly")
				ykimlik = AddField("ykimlik:Kimlik[label=Yeni Kimlik No.]", "nl")
				yhturu = AddField("yhturu:hturu[label=Yeni Hesap Türü]")
				ykararno = AddField("ykararno:kararno[label=Yeni Karar No.]", "nl")
			Case EventType.ValidateForm
				Rs = Emeklilik.KimlikAra(Remote, kimlik.Get)
				If Check("Kimlik", Rs.EOF, "Kimlik bulunamadı") Then Return
				If Rs.Rows.Count > 1 Then
					Dim Dialog As New EmeklilikKisiBilgileriSec
					Dialog.AddArgument("rs", Rs)
					Dialog.Run(Window)
					If Dialog.Result = "" Then Exit Sub
					Dim Items = Split(Dialog.Result, "|")
					Rs = Emeklilik.MaasBilgisi(Remote, Items(0), Items(1), Items(2))
				End If
				SetValues("hturu,kararno,adi,ykimlik,yhturu,ykararno", Rs("hturu"), Rs("kararno"), Trim(Rs("adi")) & " " & Trim(Rs("soyadi")), Rs("kimlik"), Rs("hturu"), Rs("kararno"))
				Help = "Yeni kimlik, hesap türü veya karar numarasını girin."
				Buttons.Show("Save.Reset")
				e.Result = True
			Case EventType.Save
				Rs = Emeklilik.MaasBilgisi(Remote, yhturu.Get, ykararno.Get, ykimlik.Get)
				If Not Rs.EOF Then
					Warning("Bu hesap bilgisi " & Trim(Rs("adi")) & " " & Trim(Rs("soyadi")) & " isimli kişiye ait. Değişiklik gerçekleştirilemez.")
					Return
				End If
				If Not Confirm("Değişiklik gerçekleştirilecek. Devam etmek istediğinizden emin misiniz?") Then Return
				Emeklilik.KimlikDegistir(Remote, hturu.Get, kararno.Get, kimlik.Get, yhturu.Get, ykararno.Get, ykimlik.Get)
				Info("Değişiklik işlemi başarıyla gerçekleştirilmiştir.")
		End Select
	End Sub

End Class
